home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ MSOXP OTL Options 4.xpl < prev    next >
Text File  |  2002-07-31  |  2KB  |  43 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "NAME"="Address Bar Bug Solver"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow Address Bar to stay right hand"
  9. "DESCRIPTION 1"="Outlook XP has a little, but annoying bug with address bar that is displayed just below your toolbar: Regardless how far right you have moved your address bar, as soon as you exit Outlook and start it again, the address bar will cover the entire space again."
  10. "DESCRIPTION 2"="This is really annoying since the address bar is simply wasting space in this case. Just exit Outlook XP, hit the button and from that point on, the address bar will stay where you left it when exiting Outlook."
  11. "DESCRIPTION 3"="Please note that this is a bug solver plug-in. If you don't encounter this bug, you do not need to use this plug-in!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="Tweak detected by Sedar's Win2k newsletter - tweak by Carl S.,"
  16.  
  17.  
  18.  
  19. 'Declaration of some constants
  20. sV1="HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\AddressBarWidth" 'DW: 1
  21. sPCheck="HKCU\Software\Microsoft\Office\10.0\Outlook\"
  22.  
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25. else
  26.    Disable()
  27. end if
  28. END SUB
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. SUB Plugin_CheckData(ElementIndex)
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  Call RegWriteValue(sV1,"1",2)
  37.  Call MsgInformation("Done! You can start Outlook again.")
  38. END SUB
  39.  
  40. 'Called when the Plugin is about to be removed from memory
  41. SUB Plugin_Terminate
  42. END SUB
  43.